From 3f09c445ea7ea58c6d2ae6421b8607788847e30c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 6 May 2004 01:11:17 +0000 Subject: [PATCH] (help-argument-name): Default to bold; don't inherit from font-lock-variable-name-face. (help-do-arg-highlight): Grok also ARGth occurrences in the docstring. --- lisp/help-fns.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index d4c0997bdf7..a94c0ed9dea 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -237,14 +237,14 @@ KIND should be `var' for a variable or `subr' for a subroutine." (concat "src/" file) file))))) -(defface help-argument-name '((t (:inherit font-lock-variable-name-face))) +(defface help-argument-name '((t (:weight bold))) "Face to highlight function arguments in docstrings.") (defun help-do-arg-highlight (doc args) (while args (let ((arg (prog1 (car args) (setq args (cdr args))))) (setq doc (replace-regexp-in-string - (concat "\\<\\(" arg "\\)\\(?:es\\|s\\)?\\>") + (concat "\\<\\(" arg "\\)\\(?:es\\|s\\|th\\)?\\>") (propertize arg 'face 'help-argument-name) doc t t 1)))) doc) -- 2.30.2